object Form1: TForm1 Left = 143 Top = 102 BorderIcons = [biSystemMenu, biMinimize] BorderStyle = bsSingle Caption = 'DTools Gadget Demo' ClientHeight = 211 ClientWidth = 425 Font.Color = clWindowText Font.Height = -13 Font.Name = 'System' Font.Style = [] PixelsPerInch = 96 ShowHint = True TextHeight = 16 object LEDLabel1: TLEDLabel Left = 80 Top = 25 Width = 51 Height = 30 Hint = 'This is a TLEDLabel component. The caption property is being se' + 't automatically by the TRotaryKnob component.' Caption = '0' Columns = 3 UnlitColor = 16384 SegmentSize = 2 end object PieMeter1: TPieMeter Left = 145 Top = 19 Width = 45 Height = 45 Hint = 'This is a TPieMeter component.' Completed = 0 Font.Color = clYellow Font.Height = -13 Font.Name = 'System' Font.Style = [fsBold] ForeColor = clFuchsia ParentFont = False Percent = 0 end object Image1: TImage Left = 203 Top = 179 Width = 33 Height = 33 AutoSize = True Picture.Data = {} Visible = False end object NeatoMeter1: TNeatoMeter Left = 8 Top = 72 Width = 185 Height = 57 Hint = 'This is a TNeatoMeter component.' Completed = 0 Font.Color = clBlack Font.Height = -13 Font.Name = 'System' Font.Style = [fsBold] ParentFont = False Percent = 0 end object Image2: TImage Left = 224 Top = 152 Width = 183 Height = 55 AutoSize = True Picture.Data = {} Visible = False end object CheckBox1: TCheckBox Left = 205 Top = 9 Width = 196 Height = 17 Hint = 'Determines whether or not to display unlit segments of the TLEDL' + 'abel.' Caption = 'Show Unlit LED Segments' State = cbChecked TabOrder = 0 OnClick = CheckBox1Click end object CheckBox2: TCheckBox Left = 205 Top = 33 Width = 186 Height = 18 Hint = 'Determines whether or not to display the Caption property on the' + ' TPieMeter and TNeatoMeter components.' Caption = 'Caption in Meters' TabOrder = 1 OnClick = CheckBox2Click end object RotaryKnob1: TRotaryKnob Left = 16 Top = 18 Width = 45 Height = 45 Hint = 'Turn the knob and the other gadgets will change!' Control = LEDLabel1 Max = 100 Position = 0 OnChange = RotaryKnob1Change end object CheckBox3: TCheckBox Left = 205 Top = 57 Width = 185 Height = 17 Hint = 'Determines whether or not to display the Percent completed on th' + 'e TPieMeter and TNeatoMeter components.' Caption = 'Show Percent in Meters' State = cbChecked TabOrder = 3 OnClick = CheckBox3Click end object RadioGroup1: TRadioGroup Left = 208 Top = 88 Width = 201 Height = 105 Hint = 'Set TNeatoMeter bitmap display options.' Caption = 'TNeatoMeter Bitmap Options' ItemIndex = 0 Items.Strings = ( 'Standard' 'Stretched Bitmap' 'Tiled Bitmap' 'Tiled Bitmap w/Invert') TabOrder = 4 OnClick = RadioGroup1Click end object RadioGroup2: TRadioGroup Left = 8 Top = 141 Width = 185 Height = 52 Hint = 'Determines the direction TNeatoMeter will go to indicate progres' + 's.' Caption = 'TNeatoMeter Direction' Columns = 2 ItemIndex = 0 Items.Strings = ( 'L->R' 'R->L' 'T->B' 'B->T') TabOrder = 5 OnClick = RadioGroup2Click end object BalloonHint1: TBalloonHint Active = True MaxWidth = -2 Position = bpAboveRight ShadowDepth = 8 Shape = bsRoundRect Left = 111 Top = 2 end object VisualApp1: TVisualApp HelpFile = 'DELPHI.HLP' HintColor = clWhite HintPause = 1000 Icon.Data = {} Title = 'DTools Gadget Demo' Left = 143 Top = 2 end end